sergio
11 de Abril del 2004

Estoy tratando de comprobar fin y comienzo de una bd manejada con un control data mediante eof y bof pero resulta que segun el codigo que puse me salta un error que puedo corregir

el codigo es algo asi .....

Private Sub adelante_Click()


If Data1roA.Recordset.EOF Then 'pregunto si llego al final
MsgBox " Pasaste el ultimo registro", 0, "Error"
Exit Sub
End If
If Data1roA.Recordset.BOF Then
MsgBox _
"¡Principio del archivo!" & vbCr & _
" El puntero se ha movido al primer registro."
Data1roA.Recordset.MoveFirst
GoTo seguir
Exit Sub

End If

Data1roA.UpdateRecord 'grabo el registro
Data1roA.Recordset.MoveNext 'muevo al siguiente registro
seguir:

desde ya muchas gracias

andres
11 de Abril del 2004

No se que quieres hacer pero si quieres comprovar si estas antes del primer registro(BOF)o despues del ultimo(EOF) SOLO TIENES QUE HACER ESTO

If Recordset .EOF then
recordset.Move previus
msgbox"estas en el ultimo registro"
end if

if recordset.bof then
recordset.movenext
msgbox"estas en el primer registro"
end if
y sino

if recordset.EOF Or recordset.BOF then
recorset.movelast
..lo que sea
end if

si quieres recorrer los registros y que pegue la vueltaes decir que el ultimo pase al primero y del primero pase al ultimo haces esto

If Recordset .EOF then
recordset.Move First
elseif recorset.bof
recorset.moveLast
end if

con eso evitas el error que se produce al pasarte del ultimo registro o al tratar de ir al que esta antes que el primero

espero te sirva